VBA SPLIT函数详解 | 您所在的位置:网站首页 › vb split函数用法 › VBA SPLIT函数详解 |
VBA编程是经常会用到字符串拆分函数SPLIT,用法也不复杂,但是大家对于这个函数的参数未必完全了解,下面结合示例讲解一下参数的用法。 SPLIT函数的语法格式如下: Split(expression, [ delimiter, [ limit, [ compare ]]])1参数含义express需要拆分的字符串delimiter参数为拆分的分隔符,如果省略则使用空格做为分隔符limit指定返回字符串的数量compare指定拆分子字符串时的比较类型先来看一个示例,现在需要拆分Good good study day day up为单个单词。 Sub Demo1() Dim strString As String Dim varResult As Variant Dim arrResult() As String strString = "Good good study day day up" varResult = VBA.Split(strString) arrResult = VBA.Split(strString) End Sub12345678VBA.Split(strString)省略delimiter参数,则使用空格做为分隔符,拆分为6个单词字符串,在【本地窗口】中可以查看数组的值,如下图所示。 一般情况下,都无须指定LIMIT参数,下面看一个使用LIMIT参数的例子。对于一些国外地址如:888, Ocean Wind Rd, Markham, V4A,需要拆分为888,Ocean Wind Rd和Markham, V4A,而不是拆分为4段,此时就需要设置LIMIT参数为3。 Sub Demo2() Dim strString As String Dim arrResult() As String Dim i As Integer strString = "888, Ocean Wind Rd, Markham, V4A" arrResult = VBA.Split(strString, ",", 3) For i = LBound(arrResult) To UBound(arrResult) Debug.Print Trim(arrResult(i)) Next i End Sub12345678910接下来看一下如何使用compare参数,下面示例代码中设置为vbTextCompare,即执行文本比较,也就是说忽略字符大小写区别(S和s都可以作为分界符)。如下代码结果为包含4个元素的字符串数组(AAA,BBB,CCC和DDD)。 Sub Demo3() Dim strString As String Dim arrResult() As String Dim i As Integer strString = "AAAsBBBSCCCsDDD" arrResult = VBA.Split(strString, delimiter:="s", compare:=vbTextCompare) For i = LBound(arrResult) To UBound(arrResult) Debug.Print Trim(arrResult(i)) Next i End Sub12345678910如果将compare参数设置为vbBinaryCompare,那么结果就会不同了。 Sub Demo4() Dim strString As String Dim arrResult() As String Dim i As Integer strString = "AAAsBBBSCCCsDDD" arrResult = VBA.Split(strString, delimiter:="s", compare:=vbBinaryCompare) For i = LBound(arrResult) To UBound(arrResult) Debug.Print Trim(arrResult(i)) Next i End Sub12345678910字符串被拆分为三段,BBB和CCC之间的S不再做为分界符。 AAABBBSCCCDDD 通过这个讲解,希望大家完全明白了SPLIT函数的用法。 |
CopyRight 2018-2019 实验室设备网 版权所有 |